home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
QRZ! Ham Radio 8
/
QRZ Ham Radio Callsign Database - Volume 8.iso
/
pc
/
files
/
mac
/
proj_a1.hqx
/
Project Mac - A1
/
BEAMPRINT
< prev
next >
Wrap
Text File
|
1996-06-25
|
1KB
|
44 lines
0 REM
10 PRINT "ENTER HOME QTH": INPUT QTH$
20 INPUT "ENTER HOME LATITUDE,DEGREES";TA
30 INPUT "ENTER HOME LONGITUDE,DEGREES";AN
40 RALT = TA * .017453
50 RNA = AN * .017453
60 DEF FN SNIV(X) = ATN (X / SQR ( - X * X + 1))
70 DEF FN CSIV(X) = - ATN (X / SQR ( - X * X + 1)) + 1.5708
80 GOSUB 380
100 OPEN "BEAMDATA" FOR INPUT AS #1
110 FOR I = 1 TO 400
130 INPUT #1, PX$,CTY$,BT,BN,ZN
140 ON ERROR GOTO 360
150 RBLT = BT * .017453
160 NBR = BN * .017453
170 X = NBR - RNA
180 D = FN CSIV(( SIN (RBLT) * SIN (RALT)) + ( COS (RBLT) * COS (RALT) * COS (X)))
190 MI = D * 57.29577# * 69
200 CSN = ( COS (RBLT) * SIN (X)) / SIN (D)
210 CCS = ( SIN (RBLT) - ( SIN (RALT) * COS (D))) / ( COS (RALT) * SIN (D))
220 RC = FN SNIV(CSN)
230 C = RC * 57.29577#
240 IF CCS > 0 AND CCS > 0 THEN AZ = C
250 IF CCS < 0 THEN AZ = 180 - C
260 IF CSN < 0 AND CCS > 0 THEN AZ = 360 + C
270 IF AZ - 180 < 0 THEN LP = 180 + AZ
280 IF AZ - 180 > 0 THEN LP = AZ - 180
290 IAZ = INT (AZ):ILP = INT (LP):IMI = INT (MI)
300 NUM = NUM + 1
310 IF NUM < 58 GOTO 340
320 NUM = 1
330 GOSUB 380
340 LPRINT PX$; TAB( 6);CTY$; TAB( 26);IAZ; TAB( 31);ILP; TAB( 36);IMI
350 NEXT I
360 CLOSE "BEAMDATA"
370 END
380 FOR I = 1 TO 6
390 LPRINT ""
400 NEXT I
410 LPRINT "CENTERED ON ";QTH$
420 LPRINT "PX"; TAB( 6);"COUNTRY"; TAB( 26);"BEAM"; TAB( 31);"LP"; TAB( 36);"MILES"
430 LPRINT "----------------------------------------"
440 RETURN